home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / sbin / logprof < prev    next >
Text File  |  2009-11-03  |  2KB  |  76 lines
  1. #!/usr/bin/perl
  2. #
  3. # $Id: logprof 612 2007-04-25 22:06:52Z DominicReynolds_ $
  4. #
  5. # ----------------------------------------------------------------------
  6. #    Copyright (c) 2005 Novell, Inc. All Rights Reserved.
  7. #
  8. #    This program is free software; you can redistribute it and/or
  9. #    modify it under the terms of version 2 of the GNU General Public
  10. #    License as published by the Free Software Foundation.
  11. #
  12. #    This program is distributed in the hope that it will be useful,
  13. #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. #    GNU General Public License for more details.
  16. #
  17. #    You should have received a copy of the GNU General Public License
  18. #    along with this program; if not, contact Novell, Inc.
  19. #
  20. #    To contact Novell about this file by physical or electronic mail,
  21. #    you may find current contact information at www.novell.com.
  22. # ----------------------------------------------------------------------
  23.  
  24. use strict;
  25. use Data::Dumper;
  26. use Getopt::Long;
  27. use Locale::gettext;
  28. use POSIX;
  29.  
  30. use Immunix::SubDomain;
  31.  
  32. # force $PATH to be sane
  33. $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";
  34.  
  35. # initialize the local poo
  36. setlocale(LC_MESSAGES, "");
  37. textdomain("apparmor-utils");
  38.  
  39. setup_yast();
  40.  
  41. # options variables
  42. my $help = '';
  43. my $logmark;
  44.  
  45. GetOptions(
  46.     'file|f=s'    => \$filename,
  47.     'dir|d=s'     => \$profiledir,
  48.     'logmark|m=s' => \$logmark,
  49.     'help|h'      => \$help,
  50. );
  51.  
  52. # tell 'em how to use it...
  53. &usage && exit if $help;
  54.  
  55. # let's convert it to full path...
  56. $profiledir = get_full_path($profiledir);
  57.  
  58. unless (-d $profiledir) {
  59.     fatal_error "Can't find subdomain profiles in $profiledir.";
  60. }
  61.  
  62. # load all the include files
  63. loadincludes();
  64.  
  65. do_logprof_pass($logmark);
  66.  
  67. shutdown_yast();
  68.  
  69. exit 0;
  70.  
  71. sub usage {
  72.     UI_Info(sprintf(gettext("usage: \%s [ -d /path/to/profiles ] [ -f /path/to/logfile ] [ -m \"mark in log to start processing after\""), $0));
  73.     exit 0;
  74. }
  75.  
  76.